(print '<ul>)
(dolist (page '("hoge" "foo"))
	(format t "<li><a href=~s>~a</a></li>" (concatenate 'string page ".lisp") page)
	)
(print '</ul>)